#####################################################################
###Table Appendix C.7, Unauthorized Treatment by Law Beliefs###########
#####################################################################

allint <- lm(supp_dem2~legal_concerns*(unauthorised+age+gender+education), data=dat)
allint20 <- lm(supp_dem2~legal_concerns*(unauthorised+age+gender+education +putin_voter+unauth_acc), data=dat)
controls <- c("age", "gender", "education") #Specify controls
emw <- dat[,c("supp_dem2", "age", "gender", "education", "unauthorised", "legal_concerns")]
emw <- na.omit(emw) #Omit NAs
post_lasso <- post_ds_interaction(data = emw, treat = "unauthorised", moderator = "legal_concerns",
                                  outcome = "supp_dem2", control_vars = controls)

allint2 <- lm(part_dummy2~legal_concerns*(unauthorised+age+gender+education), data=dat)
allint202 <- lm(part_dummy2~legal_concerns*(unauthorised+age+gender+education +putin_voter+unauth_acc), data=dat)
emw <- dat[,c("part_dummy2", "age", "gender", "education", "unauthorised", "legal_concerns")]
emw <- na.omit(emw) #Omit NAs
post_lasso202 <- post_ds_interaction(data = emw, treat = "unauthorised", moderator = "legal_concerns",
                                     outcome = "part_dummy2", control_vars = controls)

stargazer(allint, allint20, post_lasso, allint2, allint202, post_lasso202)
